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ZPRINT (*File: CLIMAC.REQ, Version V04-000, Edit 3, TUP, 14-DEC-1978') 


eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteraceeeeeerereeereeeerereeenes 


ie COPYRIGHT (<) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS he ® is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE A THE TERMS OF SUCH LICENSE AND we H_THE 


i USION OF THE 0 OF TWARE 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ICE 
ENT 


aenaeeeeeene eae eeeaeeenenne 


eee eee RRA A RAE EERE AEE E AERA AERA AERA AAA AAA RARE RATATAT TAREE eee 


' 

i 

MODULE: CLIMAC.REQ 

FACILITY: COMMAND LANGUAGE UTILITY INTERFACE 

ABSTRACT: REQUIRE FILE WHICH DEFINES THE CLI INTERFACING MACROS 
HISTORY: 

VERSION: x01.00 

AUTHORS: T.J. PORTER + M.L. JACK O3-MAY-77 

MODIFIED BY: 

v03-001 GAS0016 GERRY SMITH 28-OCT-1981 

FIX SCLIQUALCODES MACRO. 

i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


v01-001 PORTER 14-DEC-1978 
CHANGE QDFLGS DEFAULT TO NULL STRING 


v01-001 C. PETERS 18-APR-1978 
GIVE QDFLGS A DEFAULT VALUE OF 0. 


v01-001 CLA 17-OCT-1977 
ADD QDFLGS AND USRVAL TO. SCLIQUALDESC 


=>—lUlC 
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' 
lee : 
i ° 
FUNCTIONAL DESCRIPTION: 
i THIS REQUIRE FILE DEFINES THE BLISS MACROS TO BE USED BY A UTILITY : 
i WHICH IMPLEMENTS A COMMAND OF THE VMS OPERATING SYSTEM. TH } 
i MACROS ARE THOSE FOR DECLARING THE BLOCKS USED IN THE COMMUNICATION 
i BETWEEN UTILITY AN RESULT PARSER OF THE COMMAN 
i LANGUAGE INTERPRETER. THE NAMES AND CALLING SEQUENCES ARE AS DESCRIBED } 
be IN VMS DOCUMENTATION. 
Le i 

' 
1 
CREATE A CLI REQUEST DESCRIPTOR BLOCK 
KEYWORDMACRO 

SCLIREQDESC(ROTYPE, BITNUM=0, ROFLGS, 
ERRACT=0, PRSACT= ABSACT=0, 
QUALST=05= 
BLOCKCCLISC_REQDESC,BYTE) 
INITIAL( 
BYTE (RNAME (° CLISK_',ROTYPE)), ' REQUEST TYPE BYTE 
BYTE (BITNUM), i PARAMETER BIT NUMBER 
CLS TFLDCBYTE, CLISV_,ROFLGS), i FLAGS BYTE 
BYTE ( i STATUS BY 
LOnGCERAACT) i ERROR ACTION ROUTINE 
i PARAMETER QUADWORD 
i STRING DESCRIPTOR 
LONG(PRSACT) i PARAMETER PRESENT ACTION ROUTINE 
LONG (ABSACT) i PARAMETER ABSENT ACTION ROUTINE 
LONG CQUALST) $3 i QUALIFIER DESCRIPTOR LISTHEAD 
! CREATE A CLI PARAMETER QUALIFIER DESCRIPTOR 
KE YWORDMACRO 
SCLIQUALDESC(QDCODE. QDFLGS = , , TRUACT = 0, FLSACT = 0, USRVAL, 
TSTL erTtST cLRLs 
BLockLEL{SOUAL $17€(U LSRVAL. TSTLST, SETLST,CLRLST) .BYTE) 
INITIAL ( 
BYTE (CLISQUALSIZE(USRVAL, TSTLST,SETLST,CLRLST)) 
BYTE (CLISQUALNAME (QDCODES), 
LIF TNULL (USRVAL) 
THEN CLISBITFLD(BYTE,CLISV 
ZELSE CLISBITFLD(BYTE .CLI$V~. (QDUSRV, SREMOVE(QDFLGS))) 2FI, 
BYTE(O) 
LONG (0,6) 
LONG(TRUACT), 
LONG(FLSACT) 
IF ENULL (USRVAL) ZTHEN XELSE LONG(USRVAL), %F1 
TIF ZNULL(ZREMOVE(TSTLST)) RTHEN BYTE(O) ZELSE CLISBITLIST(ZREMOVE(TSTLST))ZF I, 
TIF XNULL(ZREMOVE(SETLST)) ZTHEN BYTE(O) ZELSE CLISBITLIST(ZREMOVE(SETLST)) ZF I 
TIF XNULL(ZREMOVE(CLRLST)) RTHEN BYTE(O) ELSE CLISBITLIST(ZREMOVE(CLRLST)) ZF 152; 


F 
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; CREATE THE END OF A QUALIFIER LIST 


SCLIQUALEND = BYTE ALIGN(O) INITIAL(0)%, 
; DECLARE THE NAMES OF CLI QUALIFIER CODES 
SCLIQUALCODES (UTILNAME) 
RIF XOEC AREDTOUOTE RQUOTE CLISUTILQUALPRE) 
ere she's RQUOTE ZQUOTE CLISUTILQUALPRE; 2F1 
MACRO cLISUTILQUA PRE = 
EXTERNA wa Citta *CLISK * CLISTAKES(UTILNAME) ,'_*) QUOTES; 
ELI SQUACNAME (ZREMAINING) X, 
; THE FOLLOWING IS A SET OF UTILITY MACROS FOR ALL THE ABOVE 


CLISBITS(A,8)CI= 
CLISMASK (ENAME (A,B) ) CLISOR(ZREMAINING) CLISBITS(A,ZREMAINING) 2%, 


CLISMASK (1 ,P 
CIA C(PS+ «ssf - 1*(P)) %, 


ver “yp 
OR 


CLISBITFLDCALLOC 1) limites 
ZIF ZNULL (VALUE) 
ZTHEN A tLoce ) 
BEL SE ALLOC(CLISBITS (PREF IX, XREMOVE (VALUE) )) 


CLISLENGTHC) = ZLENGTH 2%, 

CLISBITLISTC] = BYTE(ZLENGTH, ZREMAINING) 2, 

A SOCUA SS UUM... FOLST SULT ELST s 
ZIF ZNULL(UVAL) ZTHEN O % 
oir eR ee BE oy $i}? 


NULL (ZREMOVE (SBLST 
RIF ZNULL(ZREMOVE(CBLST)) ZTHEN 


CLISJOING(A,B,C,D) = ZSTRING(A,B,C,D)%, 


CLISQUALNAME CQUALNAME) = 
ZNAME (CLISUTILQUALPRE , CLISTAKE4 (QUALNAME ) )2; 


04% [PMENT CORPORATION 


Sontag AND PROPRIETAR 


